home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAEEM13.ZIP / EEOM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-09  |  13KB  |  717 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     DWord    DWORD001
  24.     DWord    DWORD002
  25.     String   STRING001
  26.     String   TSTRING002(9)
  27.     String   TSTRING003(9)
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.     String   STRING012
  37.     String   STRING013
  38.     String   STRING014
  39.     String   STRING015
  40.     String   STRING016
  41.     String   STRING017
  42.     String   STRING018
  43.     String   STRING019
  44.     Time     TIME001
  45.     Time     TIME002
  46.     Byte     TBYTE001(9)
  47.     Byte     BYTE002
  48.     Byte     BYTE003
  49.     Byte     BYTE004
  50.     Byte     BYTE005
  51.     Byte     BYTE006
  52.     Byte     BYTE007
  53.     Byte     BYTE009
  54.     Byte     BYTE010
  55.     Byte     BYTE011
  56.     Byte     BYTE015
  57.     Int      INT001
  58.     Declare  Function FUNCTION001(Byte BYTE014, String STRING020) DWord
  59.     Declare  Procedure PROC001()
  60.     Declare  Procedure PROC002()
  61.     Declare  Procedure PROC003()
  62.     Declare  Procedure PROC004()
  63.     Declare  Procedure PROC005()
  64.     Declare  Procedure PROC006()
  65.     Declare  Procedure PROC007()
  66.     Declare  Procedure PROC008(Byte BYTE012, Byte BYTE013)
  67.     Declare  Procedure PROC009(Byte BYTE008, Int INT002)
  68.     Declare  Procedure PROC010(Int INT003)
  69.  
  70. ;------------------------------------------------------------------------------
  71.  
  72.     PROC001()
  73.     PROC002()
  74.     PROC003()
  75.     PROC005()
  76.     End
  77.  
  78. ;------------------------------------------------------------------------------
  79.  
  80.     Procedure PROC004()
  81.  
  82.     Byte     BYTE005
  83.  
  84.     Print STRING004
  85.     For BYTE005 = 1 To 8
  86.         TBYTE001(BYTE005) = GetX()
  87.         Print TSTRING002(BYTE005) + Space(BYTE002)
  88.     Next
  89.  
  90.     EndProc
  91.  
  92.  
  93. ;------------------------------------------------------------------------------
  94.  
  95.     Procedure PROC005()
  96.  
  97.     Byte     BYTE006
  98.     Byte     BYTE007
  99.     Int      INT001
  100.     Boolean  BOOLEAN003
  101.     Time     TIME001
  102.     Time     TIME002
  103.  
  104.     BYTE007 = 1
  105.     BYTE006 = 1
  106.     If (BYTE003) Then
  107.         TIME001 = Time()
  108.         KbdChkOff
  109.     Endif
  110.     If (FUNCTION001(16, STRING017) <> 64288) End
  111.     PROC004()
  112.     PROC008(BYTE006, BYTE007)
  113.     BOOLEAN003 = 0
  114.     :LABEL001
  115.     If (BOOLEAN003) Goto LABEL002
  116.     If (BYTE003) Then
  117.         TIME002 = Time()
  118.         If (TIME002 - TIME001 > 60 * BYTE003) Then
  119.             Newline
  120.             DispText 55, 32768 + 2048 + 256 + 128
  121.             Bye
  122.         Endif
  123.     Endif
  124.     Delay BYTE004
  125.     INT001 = Asc(Inkey())
  126.     If ((((((INT001 == 82) || (INT001 == 68)) || (INT001 == 54)) || (INT001 == 56)) || (INT001 == 32)) || (INT001 == 62)) Then
  127.         BYTE007 = BYTE006
  128.         Inc BYTE006
  129.         If (BYTE006 > 8) BYTE006 = 1
  130.         PROC008(BYTE006, BYTE007)
  131.     ElseIf ((((((INT001 == 76) || (INT001 == 85)) || (INT001 == 52)) || (INT001 == 50)) || (INT001 == 9)) || (INT001 == 60)) Then
  132.         BYTE007 = BYTE006
  133.         Dec BYTE006
  134.         If (BYTE006 < 1) BYTE006 = 8
  135.         PROC008(BYTE006, BYTE007)
  136.     Else
  137.         Select Case (INT001)
  138.             Case 99, 67
  139.                 BYTE007 = BYTE006
  140.                 BYTE006 = 1
  141.                 PROC008(BYTE006, BYTE007)
  142.                 If (BOOLEAN002) BOOLEAN003 = 1
  143.             Case 100, 68
  144.                 BYTE007 = BYTE006
  145.                 BYTE006 = 2
  146.                 PROC008(BYTE006, BYTE007)
  147.                 If (BOOLEAN002) BOOLEAN003 = 1
  148.             Case 106, 74
  149.                 BYTE007 = BYTE006
  150.                 BYTE006 = 3
  151.                 PROC008(BYTE006, BYTE007)
  152.                 If (BOOLEAN002) BOOLEAN003 = 1
  153.             Case 107, 75
  154.                 BYTE007 = BYTE006
  155.                 BYTE006 = 4
  156.                 PROC008(BYTE006, BYTE007)
  157.                 If (BOOLEAN002) BOOLEAN003 = 1
  158.             Case 110, 78
  159.                 BYTE007 = BYTE006
  160.                 BYTE006 = 5
  161.                 PROC008(BYTE006, BYTE007)
  162.                 If (BOOLEAN002) BOOLEAN003 = 1
  163.             Case 114, 82
  164.                 BYTE007 = BYTE006
  165.                 BYTE006 = 6
  166.                 PROC008(BYTE006, BYTE007)
  167.                 If (BOOLEAN002) BOOLEAN003 = 1
  168.             Case 115, 83
  169.                 BYTE007 = BYTE006
  170.                 BYTE006 = 7
  171.                 PROC008(BYTE006, BYTE007)
  172.                 If (BOOLEAN002) BOOLEAN003 = 1
  173.             Case 43, 93
  174.                 BYTE007 = BYTE006
  175.                 If (BOOLEAN002) Then
  176.                     BYTE006 = 9
  177.                     BOOLEAN003 = 1
  178.                 Else
  179.                     BYTE006 = 8
  180.                 Endif
  181.                 PROC008(BYTE006, BYTE007)
  182.             Case 45, 91
  183.                 BYTE007 = BYTE006
  184.                 If (BOOLEAN002) Then
  185.                     BYTE006 = 10
  186.                     PROC008(BYTE006, BYTE007)
  187.                     BOOLEAN003 = 1
  188.                 Else
  189.                     BYTE006 = 8
  190.                 Endif
  191.                 PROC008(BYTE006, BYTE007)
  192.             Case 13
  193.                 BOOLEAN003 = 1
  194.             Case 63
  195.                 PROC006()
  196.                 BYTE006 = 0
  197.                 BOOLEAN003 = 1
  198.             Case 33
  199.                 PROC007()
  200.                 PROC004()
  201.                 PROC008(BYTE006, BYTE007)
  202.             Case 0
  203.                 BYTE007 = BYTE006
  204.                 BYTE006 = 8
  205.                 PROC008(BYTE006, BYTE007)
  206.                 If (BOOLEAN002) BOOLEAN003 = 1
  207.             Endif
  208.     End Select
  209.     Goto LABEL001
  210.     :LABEL002
  211.     PROC009(BYTE006, INT001)
  212.  
  213.     EndProc
  214.  
  215.  
  216. ;------------------------------------------------------------------------------
  217.  
  218.     Procedure PROC007()
  219.  
  220.     Print Chr(13)
  221.     ClrEol
  222.     Print Chr(13)
  223.     Print Space((79 - Len(StripAtx(STRING017))) / 2) + STRING017
  224.     Delay 35
  225.     Print Chr(13)
  226.     ClrEol
  227.     Print Chr(13)
  228.  
  229.     EndProc
  230.  
  231.  
  232. ;------------------------------------------------------------------------------
  233.  
  234.     Procedure PROC009(Byte BYTE008, Int INT002)
  235.  
  236.     Byte     BYTE009
  237.  
  238.     Print Chr(13)
  239.     ClrEol
  240.     BYTE009 = 3
  241.     Select Case (BYTE008)
  242.         Case 0
  243.             Print STRING005
  244.             Print STRING016
  245.             KbdStuff Chr(13)
  246.         Case 1
  247.             Print STRING005
  248.             Print STRING007
  249.             KbdStuff Chr(13)
  250.         Case 2
  251.             Print STRING005
  252.             Print STRING008
  253.             KbdStuff "D"
  254.         Case 3
  255.             Print STRING005
  256.             Print STRING009
  257.             KbdStuff "J"
  258.         Case 4
  259.             Print STRING005
  260.             Print STRING010
  261.             KbdStuff "K"
  262.         Case 5
  263.             Print STRING005
  264.             Print STRING011
  265.             KbdStuff "N"
  266.         Case 6
  267.             Print STRING005
  268.             Print STRING012
  269.             KbdStuff "RE"
  270.         Case 7
  271.             Print STRING005
  272.             Print STRING013
  273.             KbdStuff "SKIP"
  274.         Case 8
  275.             PROC010(INT002)
  276.             BYTE009 = 0
  277.         Case 9
  278.             Print STRING005
  279.             Print STRING014
  280.             KbdStuff "+"
  281.         Case 10
  282.             Print STRING005
  283.             Print STRING015
  284.             KbdStuff "-"
  285.     End Select
  286.     Delay BYTE009
  287.  
  288.     EndProc
  289.  
  290.  
  291. ;------------------------------------------------------------------------------
  292.  
  293.     Procedure PROC010(Int INT003)
  294.  
  295.     String   STRING018
  296.     String   STRING019
  297.     Boolean  BOOLEAN004
  298.     Byte     BYTE010
  299.     Byte     BYTE011
  300.  
  301.     Print STRING006
  302.     BYTE011 = GetX() - 1
  303.     If (InStr(Mask_AlNum() + Mask_Ascii(), Chr(INT003)) && (INT003 <> 13)) Then
  304.         Print Chr(INT003)
  305.         STRING018 = Chr(INT003)
  306.         BYTE010 = 1
  307.     Else
  308.         STRING018 = ""
  309.         BYTE010 = 0
  310.     Endif
  311.     BOOLEAN004 = 0
  312.     :LABEL003
  313.     If (BOOLEAN004) Goto LABEL004
  314.     Delay BYTE004
  315.     STRING019 = Inkey()
  316.     Select Case (Asc(STRING019))
  317.         Case 13
  318.             If (STRING018 == "") Then
  319.                 STRING018 = Chr(13)
  320.                 Print STRING007
  321.             Endif
  322.             BOOLEAN004 = 1
  323.         Case 27, 21
  324.             Print Chr(13)
  325.             Forward BYTE011
  326.             ClrEol
  327.             Print Chr(13)
  328.             Forward BYTE011
  329.             BYTE010 = 0
  330.             STRING018 = ""
  331.         Case 8
  332.             If (BYTE010 > 0) Then
  333.                 Print STRING019 + " " + STRING019
  334.                 Dec BYTE010
  335.                 STRING018 = Left(STRING018, Len(STRING018) - 1)
  336.             Endif
  337.         Case InStr(Mask_AlNum(), STRING019)
  338.         Case 79 - Len(StripAtx(STRING006))
  339.             Print STRING019
  340.             Inc BYTE010
  341.             STRING018 = STRING018 + STRING019
  342.     End Select
  343.     Goto LABEL003
  344.     :LABEL004
  345.     STRING018 = Upper(STRING018)
  346.     Select Case (STRING018)
  347.         Case "H"
  348.             Print Chr(8) + ReadLine(STRING001, 14)
  349.             STRING018 = "HE"
  350.         Case "HE"
  351.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 14)
  352.         Case ""
  353.             Print STRING007
  354.             STRING018 = Chr(13)
  355.         Case "+"
  356.             Print Chr(8) + STRING014
  357.         Case "-"
  358.             Print Chr(8) + STRING015
  359.         Case "/"
  360.             Print Chr(8) + STRING016
  361.         Case "ALIAS"
  362.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 15)
  363.         Case "C"
  364.             Print Chr(8) + ReadLine(STRING001, 16)
  365.         Case "COPY"
  366.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 17)
  367.         Case "D"
  368.             Print Chr(8) + STRING008
  369.         Case "DE"
  370.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 18)
  371.         Case "E"
  372.             Print Chr(8) + ReadLine(STRING001, 19)
  373.         Case "EDIT"
  374.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 20)
  375.         Case "F"
  376.             Print Chr(8) + ReadLine(STRING001, 21)
  377.         Case "FF"
  378.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 22)
  379.         Case "FLAG"
  380.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 23)
  381.         Case "FT"
  382.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 24)
  383.         Case "G"
  384.             Print Chr(8) + ReadLine(STRING001, 25)
  385.         Case "J"
  386.             Print Chr(8) + STRING009
  387.         Case "JUMP"
  388.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 26)
  389.         Case "K"
  390.             Print Chr(8) + STRING010
  391.         Case "L"
  392.             Print Chr(8) + ReadLine(STRING001, 27)
  393.         Case "LONG"
  394.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 28)
  395.         Case "M"
  396.             Print Chr(8) + ReadLine(STRING001, 29)
  397.         Case "MOVE"
  398.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 30)
  399.         Case "N"
  400.             Print Chr(8) + STRING011
  401.         Case "NEXT"
  402.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 31)
  403.         Case "NS"
  404.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 32)
  405.         Case "P"
  406.             Print Chr(8) + ReadLine(STRING001, 33)
  407.         Case "PREV"
  408.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 34)
  409.         Case "RE"
  410.             Print Chr(8) + Chr(8) + STRING012
  411.         Case "RM"
  412.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 35)
  413.         Case "RM+"
  414.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 36)
  415.         Case "RM-"
  416.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 37)
  417.         Case "RO"
  418.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 38)
  419.         Case "RR"
  420.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 39)
  421.         Case "S"
  422.             Print Chr(8) + ReadLine(STRING001, 40)
  423.         Case "SE"
  424.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 41)
  425.         Case "SET"
  426.             Print Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 42)
  427.         Case "SHORT"
  428.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 43)
  429.         Case "SKIP"
  430.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + STRING013
  431.         Case "T+"
  432.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 44)
  433.         Case "T-"
  434.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 45)
  435.         Case "TS"
  436.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 46)
  437.         Case "U"
  438.             Print Chr(8) + ReadLine(STRING001, 47)
  439.         Case "USER"
  440.             Print Chr(8) + Chr(8) + Chr(8) + Chr(8) + ReadLine(STRING001, 48)
  441.         Case "V"
  442.             Print Chr(8) + ReadLine(STRING001, 49)
  443.         Case "Y"
  444.             Print Chr(8) + ReadLine(STRING001, 50)
  445.         Case "YA"
  446.             Print Chr(8) + Chr(8) + ReadLine(STRING001, 51)
  447.         Case "Z"
  448.             Print Chr(8) + ReadLine(STRING001, 52)
  449.     End Select
  450.     Delay 3
  451.     KbdStuff STRING018
  452.  
  453.     EndProc
  454.  
  455.  
  456. ;------------------------------------------------------------------------------
  457.  
  458.     Procedure PROC006()
  459.  
  460.     If (Exist(PPEPath() + "EEOM.HLP")) Then
  461.         DispFile PPEPath() + "EEOM.HLP", 0
  462.         KbdStuff "/"
  463.     Endif
  464.  
  465.     EndProc
  466.  
  467.  
  468. ;------------------------------------------------------------------------------
  469.  
  470.     Procedure PROC003()
  471.  
  472.     If (Exist(PPEPath() + "EEOM.PCB")) Then
  473.         DispFile PPEPath() + "EEOM.PCB", 0
  474.     Endif
  475.  
  476.     EndProc
  477.  
  478.  
  479. ;------------------------------------------------------------------------------
  480.  
  481.     Procedure PROC008(Byte BYTE012, Byte BYTE013)
  482.  
  483.     Print Chr(13)
  484.     Forward TBYTE001(BYTE013) - 1
  485.     Print TSTRING002(BYTE013)
  486.     Print Chr(13)
  487.     Forward TBYTE001(BYTE012) - 1
  488.     Print TSTRING003(BYTE012)
  489.  
  490.     EndProc
  491.  
  492.  
  493. ;------------------------------------------------------------------------------
  494.  
  495.     Procedure PROC002()
  496.  
  497.     If (BOOLEAN001) Then
  498.         GetUser
  499.         If ((GetY() >= U_PageLen) && ((U_Cls == 0) || ((U_Cls == 1) && (U_Scroll == 1)))) Then
  500.             Wait
  501.         Endif
  502.     Endif
  503.  
  504.     EndProc
  505.  
  506.  
  507. ;------------------------------------------------------------------------------
  508.  
  509.     Function FUNCTION001(Byte BYTE014, String STRING020) DWord
  510.  
  511.     DWord    DWORD002
  512.     Byte     BYTE015
  513.     String   STRING021
  514.  
  515.     DWORD002 = 0
  516.     BYTE015 = 0
  517.     While (((1 < 0) && (BYTE015 >= Len(STRING020) - 1)) || ((1 >= 0) && (BYTE015 <= Len(STRING020) - 1))) Do
  518.         DWORD002 = DWORD002 + BYTE014 * Asc(Mid(STRING020, BYTE015, 1))
  519.         BYTE015 = BYTE015 + 1
  520.     EndWhile
  521.     FUNCTION001 = DWORD002
  522.  
  523.     EndFunc
  524.  
  525.  
  526. ;------------------------------------------------------------------------------
  527.  
  528.     Procedure PROC001()
  529.  
  530.     String   STRING021
  531.     String   STRING022
  532.     String   STRING023
  533.     Byte     BYTE016
  534.  
  535.     STRING017 = "@X0FEnhanced End of Message v1.3 by Drew [PWA]@X07"
  536.     STRING021 = PPEPath() + "EEOM.CFG"
  537.     STRING022 = PPEPath() + "LB.CFG"
  538.     STRING001 = PPEPath() + "STRINGS.CFG"
  539.     If (FUNCTION001(3, STRING017) <> 12054) End
  540.     If (Exist(STRING022)) Then
  541.         FOpen 1, STRING022, 0, 2
  542.         FDefIn 1
  543.         FDGet STRING023
  544.         BYTE002 = S2I(STRING023, 10)
  545.         For BYTE016 = 1 To 8
  546.             FDGet TSTRING002(BYTE016)
  547.             FDGet TSTRING003(BYTE016)
  548.         Next
  549.         FClose 1
  550.     Else
  551.         BYTE002 = 0
  552.         TSTRING002(1) = "@X08 Cont @X07"
  553.         TSTRING003(1) = "@X4F CONT @X07"
  554.         TSTRING002(2) = "@X08 Dload @X07"
  555.         TSTRING003(2) = "@X4F DLOAD @X07"
  556.         TSTRING002(3) = "@X08 Jump @X07"
  557.         TSTRING003(3) = "@X4F JUMP @X07"
  558.         TSTRING002(4) = "@X08 Kill @X07"
  559.         TSTRING003(4) = "@X4F KILL @X07"
  560.         TSTRING002(5) = "@X08 Nomore @X07"
  561.         TSTRING003(5) = "@X4F NOMORE @X07"
  562.         TSTRING002(6) = "@X08 Reply @X07"
  563.         TSTRING003(6) = "@X4F REPLY @X07"
  564.         TSTRING002(7) = "@X08 Skip @X07"
  565.         TSTRING003(7) = "@X4F SKIP @X07"
  566.         TSTRING002(8) = "@X08 Other @X07"
  567.         TSTRING003(8) = "@X4F OTHER @X07"
  568.     Endif
  569.     If (Exist(STRING021)) Then
  570.         If (Lower(ReadLine(STRING021, 1)) == "yes") Then
  571.             BOOLEAN002 = 1
  572.         Else
  573.             BOOLEAN002 = 0
  574.         Endif
  575.         If (Lower(ReadLine(STRING021, 2)) == "yes") Then
  576.             BOOLEAN001 = 1
  577.         Else
  578.             BOOLEAN001 = 0
  579.         Endif
  580.         BYTE004 = S2I(ReadLine(STRING021, 3), 10)
  581.         FClose -1
  582.     Else
  583.         BOOLEAN002 = 1
  584.         BOOLEAN001 = 1
  585.         BYTE004 = 1
  586.     Endif
  587.     If (Exist(STRING001)) Then
  588.         FOpen 1, STRING001, 0, 2
  589.         FDefIn 1
  590.         FDGet STRING004
  591.         FDGet STRING005
  592.         FDGet STRING006
  593.         FDGet STRING007
  594.         FDGet STRING008
  595.         FDGet STRING009
  596.         FDGet STRING010
  597.         FDGet STRING011
  598.         FDGet STRING012
  599.         FDGet STRING013
  600.         FDGet STRING014
  601.         FDGet STRING015
  602.         FDGet STRING016
  603.         FClose 1
  604.     Else
  605.         STRING004 = "@X0FMsg #: @X08[@X0F@CURMSGNUM@@X08] [@X0F+@X08/@X0F-@X08/@X0F?@X08] @X07"
  606.         STRING005 = "@X0FExecuting Msg Cmd: @X07"
  607.         STRING006 = "@X0FOther Msg Cmd: @X07"
  608.         STRING007 = "@X04Continue message read...@X07"
  609.         STRING008 = "@X04Download message...@X07"
  610.         STRING009 = "@X04Jump conference@X07"
  611.         STRING010 = "@X04Killing message #@CURMSGNUM@@X07"
  612.         STRING011 = "@X04No more (quit)@X07"
  613.         STRING012 = "@X04Reply to message #@CURMSGNUM@@X07"
  614.         STRING013 = "@X04Skip conference...@X07"
  615.         STRING014 = "@X04Continuing forward...@X07"
  616.         STRING015 = "@X04Continuing backward...@X07"
  617.         STRING016 = "@X04Re-reading message...@X07"
  618.     Endif
  619.     BYTE003 = ReadLine(PCBDat(), 89)
  620.  
  621.     EndProc
  622.  
  623.  
  624. ;------------------------------------------------------------------------------
  625. ;
  626. ; Usage report (before postprocessing)
  627. ;
  628. ; ■ Statements used :
  629. ;
  630. ;    3       End
  631. ;    4       ClrEol
  632. ;    1       Wait
  633. ;    193     Goto 
  634. ;    117     Let 
  635. ;    89      Print 
  636. ;    115     If 
  637. ;    2       DispFile 
  638. ;    2       FOpen 
  639. ;    3       FClose 
  640. ;    1       GetUser
  641. ;    5       Delay 
  642. ;    2       Inc 
  643. ;    2       Dec 
  644. ;    1       Newline
  645. ;    1       DispText 
  646. ;    12      KbdStuff 
  647. ;    1       Bye
  648. ;    1       KbdChkOff
  649. ;    4       Forward 
  650. ;    2       FDefIn 
  651. ;    16      FDGet 
  652. ;    10      EndProc
  653. ;    1       EndFunc
  654. ;
  655. ;
  656. ; ■ Functions used :
  657. ;
  658. ;    1       -
  659. ;    2       *
  660. ;    1       /
  661. ;    126     +
  662. ;    9       -
  663. ;    104     ==
  664. ;    3       <>
  665. ;    5       <
  666. ;    3       <=
  667. ;    4       >
  668. ;    7       >=
  669. ;    103     !
  670. ;    9       &&
  671. ;    25      ||
  672. ;    5       Len(
  673. ;    2       Lower()
  674. ;    1       Upper()
  675. ;    1       Mid()
  676. ;    1       Left()
  677. ;    2       Space()
  678. ;    121     Chr()
  679. ;    6       Asc()
  680. ;    3       InStr()
  681. ;    2       Time()
  682. ;    2       StripAtx()
  683. ;    2       Inkey()
  684. ;    2       Mask_AlNum()
  685. ;    2       Mask_Ascii()
  686. ;    1       PCBDat()
  687. ;    7       PPEPath()
  688. ;    44      ReadLine()
  689. ;    5       Exist()
  690. ;    2       S2I()
  691. ;    2       GetX()
  692. ;    1       GetY()
  693. ;
  694. ;------------------------------------------------------------------------------
  695. ;
  696. ; Analysis flags : d
  697. ;
  698. ; d - Access PCBOARD.DAT ■ 2
  699. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  700. ;     for many PPE so they can find various informations on the system
  701. ;     (system paths, max number of lines in messages, ...) but it may also
  702. ;     be a way to gather vital informations.
  703. ;     ■ Search for : PCBDAT()
  704. ;
  705. ;------------------------------------------------------------------------------
  706. ;
  707. ; Postprocessing report
  708. ;
  709. ;    2       For/Next
  710. ;    1       While/EndWhile
  711. ;    19      If/Then or If/Then/Else
  712. ;    4       Select Case
  713. ;
  714. ;------------------------------------------------------------------------------
  715. ;                 AEGiS Corp - Break the routines, code against the machines!
  716. ;------------------------------------------------------------------------------
  717.